home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / animcontrol_test.e < prev    next >
Encoding:
Text File  |  1997-02-10  |  725 b   |  33 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'plugins/animcontrol'
  3.  
  4. PROC main() HANDLE
  5.   DEF a=NIL:PTR TO animcontrol
  6.   NEW a.animcontrol(10,20)
  7.   easyguiA('BOOPSI in EasyGUI!',
  8.     [ROWS,
  9.       [TEXT,'AnimControl test...',NIL,TRUE,1],
  10.       [PLUGIN,{animcontrolaction},a],
  11.       [EQCOLS,
  12.         [BUTTON,{reset},'Reset',a],
  13.         [BUTTON,{toggle_enabled},'Toggle Enabled',a]
  14.       ]
  15.     ])
  16. EXCEPT DO
  17.   END a
  18.   report_exception()
  19. ENDPROC
  20.  
  21. PROC animcontrolaction(i,a:PTR TO animcontrol)
  22.   PrintF('Action: mode=\d frame=\d\n', a.mode, a.frame)
  23. ENDPROC
  24.  
  25. PROC reset(a:PTR TO animcontrol,i)
  26.   a.setframe(10)
  27.   a.setplay(FALSE)
  28. ENDPROC
  29.  
  30. PROC toggle_enabled(a:PTR TO animcontrol,i)
  31.   a.setdisabled(a.disabled=FALSE)
  32. ENDPROC
  33.